home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cobol.arc / SEQ.CBL < prev   
Text File  |  1985-08-26  |  2KB  |  59 lines
  1.  IDENTIFICATION DIVISION.
  2.  PROGRAM-ID.
  3.      SEQ.
  4. ************************************************
  5. *                                              *
  6. * THIS PROGRAM READS A COBOL PROGRAM 'INP.FIL' *
  7. * WITH SEQUENCE NUMBERS AND WRITES A COBOL     *
  8. * PROGRAM 'PRT.FIL' WITHOUT SEQUENCE NUMBERS   *
  9. * IT DEMONSTRATES THE USE OF VARIABLE LENGTH   *
  10. * RECORD FILES IN NPS MICRO-COBOL.             *
  11. *                                              *
  12. ************************************************
  13.  
  14.  ENVIRONMENT DIVISION.
  15.  CONFIGURATION SECTION.
  16.  SOURCE-COMPUTER.
  17.      8080.
  18.  OBJECT-COMPUTER.
  19.      8080.
  20.  INPUT-OUTPUT SECTION.
  21.  FILE-CONTROL.
  22.      SELECT PRINT-FILE ASSIGN
  23.      PRT.FIL.
  24.      SELECT INPUT-FILE ASSIGN INP.FIL.
  25.  DATA DIVISION.
  26.  FILE SECTION.
  27.  FD  PRINT-FILE
  28.      RECORD 6 TO 80
  29. * RECORD 6 TO 80 INDICATES THIS FILE IS 
  30. * VARIABLE LENGTH.
  31.      LABEL RECORDS
  32.      OMITTED.
  33.  01 OUTPUT-LINE PIC X(80).
  34.  
  35.  FD INPUT-FILE
  36.     RECORD 6 TO 80
  37.     LABEL RECORDS OMITTED.
  38.  01 INPUT-LINE.
  39.    02 SEQ-NUMBER PIC X(6).
  40.    02 INFO       PIC X(74).
  41.  
  42.  WORKING-STORAGE SECTION.
  43.  01 END-OF-FILE PIC X VALUE 'F'.
  44.  
  45.  PROCEDURE DIVISION.
  46.  BEGIN-PARA.
  47.    OPEN OUTPUT PRINT-FILE.
  48.    OPEN INPUT INPUT-FILE.
  49.    READ INPUT-FILE END MOVE 'T' TO END-OF-FILE.
  50.    PERFORM PROCESS UNTIL END-OF-FILE EQUAL 'T'.
  51.    CLOSE PRINT-FILE.
  52.    CLOSE INPUT-FILE.
  53.    STOP RUN.
  54.  
  55.  PROCESS.
  56.    MOVE INFO TO OUTPUT-LINE.
  57.    WRITE OUTPUT-LINE.
  58.    READ INPUT-FILE END MOVE 'T' TO END-OF-FILE.
  59.